home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / complib / slapy2.z / slapy2
Encoding:
Text File  |  1998-10-30  |  892 b   |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAAPPPPYYYY2222((((3333FFFF))))                                                          SSSSLLLLAAAAPPPPYYYY2222((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLAPY2 - return sqrt(x**2+y**2), taking care not to cause unnecessary
  10.      overflow
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      REAL FUNCTION SLAPY2( X, Y )
  14.  
  15.          REAL      X, Y
  16.  
  17. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  18.      SLAPY2 returns sqrt(x**2+y**2), taking care not to cause unnecessary
  19.      overflow.
  20.  
  21.  
  22. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  23.      X       (input) REAL
  24.              Y       (input) REAL X and Y specify the values x and y.
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.